10 POKE53280,15:POKE53281,15:IFB=0THENB=1:GOSUB110:T$=" * TASTE *":GOSUB380
20 IFA=1THENPOKEV+21,1:GOTO130
30 PRINT"[147] +[146] = NAECHSTES / -[146] = VORHERIGES SPRITE":PRINT" E[146] = ENDE ";
40 PRINT"[156]DER ANZEIGE":PRINT" [156]PROGRAMM-ENDE = RETURN[146] BEI 'FILENAME'"
50 A$="":INPUT" FILENAME   $[157][157][157]";A$:IFA$=""THENEND
60 IFA$="$"THENGOSUB230:PRINT"[147]":GOTO50
70 A$=A$+"*":OPEN2,8,2,"0:"+A$+",P,R":GOSUB290:IFAA<>0THENPRINT"[147]":GOTO50
80 OPEN2,8,2,"0:"+A$+",P,R":GET#2,A1$,A2$
90 D=ASC(A1$+CHR$(0))+256*ASC(A2$+CHR$(0)):CLOSE2:PRINT"[147]ST.-ADR.:"D:X=D/64:AB=X-1
100 A=1:LOADA$,8,1
110 F(1)=14:F(2)=2:F(3)=1:V=53248:POKEV,100:POKEV+1,100:POKEV+23,1:POKEV+28,1
120 POKEV+29,1:POKEV+37,F(1):POKEV+38,F(2):POKEV+39,F(3):POKE2040,13:RETURN
130 PRINT"[147]";:GOSUB200:GOSUB590:FORI=0TO63:POKE832+I,PEEK(X*64+I):NEXT
140 GETW$:IFW$=""THEN140
150 IFW$="+"THENIFX<=1023THENX=X+1:GOTO130
160 IFW$="-"THENIFX=>1THENX=X-1:GOTO130
170 IFW$="E"THENA=0:POKEV+21,0:GOSUB600:PRINT"[147]":GOTO50
180 W=ASC(W$):IFW>132THENIFW<141THENGOSUB420:GOTO140
190 GOTO140
200 IFX<1THENPRINT"SPEICHERANFANG!";:GOTO220
210 IFX>1022THENPRINT"SPEICHERENDE  !";
220 RETURN
230 PRINT"[147]":OPEN1,8,0,"$":POKE781,1:SYS65478:GETAA$,AA$:EE$=CHR$(0)
240 GETAA$,AA$,HH$,LL$:IFSTTHENSYS65484:CLOSE1:GOTO280
250 PRINTASC(HH$+EE$)+256*ASC(LL$+EE$);
260 GETAA$,BB$:IFAA$THENPRINTAA$BB$;:GOTO260
270 PRINTAA$:GOTO240
280 PRINT""TAB(5)T$:GOSUB320:RETURN
290 OPEN15,8,15:INPUT#15,AA,BB$,CC,DD:IFAA<>0THENPRINT"  DISKFEHLER ":GOTO310
300 CLOSE2:CLOSE15:RETURN
310 PRINTAA;BB$;CC;DD:PRINT""T$:GOSUB320:GOTO300
320 POKE198,0:WAIT198,1:POKE198,0:RETURN
330 PRINT" * HINWEIS *":PRINT" DIE FARBEN DER SPRITES":PRINT" KOENNEN MIT DEN TASTEN"
340 PRINT"     F1 - F6 ,":PRINT" DIE HINTERGRUNDFARBE":PRINT" KANN MIT"
350 PRINT"     F7 + F8 ,":PRINT" GEAENDERT WERDEN."
360 PRINT"[156] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT"[156]  DER  FILENAME  KANN "
370 PRINT"  ABGEKUERZT OHNE[156] '*' ":PRINT"  EINGEGEBEN WERDEN ! ":GOSUB320:RETURN
380 PRINT"[147]":POKE214,6:POKE211,8:SYS58640:PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
390 PRINTTAB(8)" TIGER-DISK PRAESENTIERT ":PRINTTAB(11)"[156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
400 PRINTTAB(11)" SPRITEFILE-SHOWER ":PRINTTAB(11)"(W)  TIGERCREW 2002"
410 GOSUB320:PRINT"[147]":GOSUB330:RETURN
420 IFW=133THENF(1)=F(1)+1:GOSUB560:GOTO500
430 IFW=137THENF(1)=F(1)-1:GOSUB560:GOTO500
440 IFW=134THENF(2)=F(2)+1:GOSUB560:GOTO510
450 IFW=138THENF(2)=F(2)-1:GOSUB560:GOTO510
460 IFW=135THENF(3)=F(3)+1:GOSUB560:GOTO520
470 IFW=139THENF(3)=F(3)-1:GOSUB560:GOTO520
480 IFW=136THENF(4)=F(4)+1:GOSUB560:GOTO530
490 IFW=140THENF(4)=F(4)-1:GOSUB560:GOTO530
500 POKEV+37,F(1):RETURN
510 POKEV+38,F(2):RETURN
520 POKEV+39,F(3):RETURN
530 POKE53281,F(4):IFF(4)=1THENPOKE646,0:PRINT"[147]";:GOSUB590:GOTO550
540 IFF(4)<>1THENPOKE646,1:PRINT"[147]";:GOSUB590
550 RETURN
560 FORTE=1TO4:IFF(TE)>15THENF(TE)=0
570 IFF(TE)<0THENF(TE)=15
580 NEXT:RETURN
590 PRINT"SPRITE #"X-AB:RETURN
600 PRINT"[147]END-ADRESSE DES LETZTEN SPRITES:        "(X+1)*64:GOSUB320:RETURN